'From MIT Squeak 0.9.4 (June 1, 2003) [No updates present.] on 30 April 2008 at 1:47:27 pm'!ChoiceArgMorph subclass: #ChoiceOrExpressionArgMorph	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Scratch-Blocks'!!ChoiceOrExpressionArgMorph commentStamp: 'jm 11/28/2006 13:18' prior: 0!Argument placeholder that can either allow selection from a menu or be replaced with a numeric reporter block.!!ChoiceOrExpressionArgMorph methodsFor: 'queries' stamp: 'jm 11/28/2006 13:19'!acceptsDroppedReporters	^ true! !!ChoiceOrExpressionArgMorph methodsFor: 'queries' stamp: 'jm 11/28/2006 13:19'!acceptsTypeOf: aBlockMorph	"Answer true if I can accept a dropped reporter of the given type."	aBlockMorph isReporter ifFalse: [^ false].	^ aBlockMorph isBooleanReporter not  "must be a number"! !